object Form17: TForm17
  Left = 334
  Top = 108
  Width = 374
  Height = 491
  Caption = 'Browse Folders'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = True
  OnClose = FormClose
  OnDeactivate = FormDeactivate
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object Label1: TLabel
    Left = 10
    Top = 10
    Width = 167
    Height = 16
    Caption = 'Select a destination folder'
    Font.Charset = ANSI_CHARSET
    Font.Color = clGreen
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 10
    Top = 364
    Width = 303
    Height = 16
    Caption = 'enter a new folder name and click Ok to create.'
    Font.Charset = ANSI_CHARSET
    Font.Color = clGreen
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 10
    Top = 345
    Width = 248
    Height = 16
    Caption = 'Enter or browse to an existing folder or'
    Font.Charset = ANSI_CHARSET
    Font.Color = clGreen
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 10
    Top = 59
    Width = 346
    Height = 247
    ItemHeight = 16
    TabOrder = 0
    OnChange = DirectoryListBox1Change
  end
  object DriveComboBox1: TDriveComboBox
    Left = 10
    Top = 30
    Width = 346
    Height = 22
    DirList = DirectoryListBox1
    TabOrder = 1
  end
  object BitBtn1: TBitBtn
    Left = 49
    Top = 394
    Width = 80
    Height = 31
    Caption = 'Ok'
    TabOrder = 2
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 217
    Top = 394
    Width = 92
    Height = 31
    TabOrder = 3
    OnClick = BitBtn2Click
    Kind = bkCancel
  end
  object Edit1: TEdit
    Left = 10
    Top = 315
    Width = 346
    Height = 24
    TabOrder = 4
    OnChange = Edit1Change
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 435
    Width = 366
    Height = 24
    Panels = <>
    SimplePanel = True
  end
end